home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / biz / swood / FW_Font.lha / FW_Font / FontLook.fwrexx < prev    next >
Text File  |  1997-08-07  |  4KB  |  156 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Address='FinalW'
  4. Options results
  5. STATUS PORTNAME
  6. FW=result
  7. address=FW
  8. SIGNAL ON BREAK_C
  9. 'ShowMessage 2 0 "FontLook V2.80 - 06.08.97" "    Neu: Das Shareware-Paket" "Info im FontLook-Guide" ":-)" "Ok" "(-:"'
  10. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  11. if result=2 then call BREAK_C
  12. Cleardoc Force
  13. 'ShowMessage 2 0 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  14. cl=result
  15. 'ShowMessage 2 0 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  16. ba=result
  17. 'ShowMessage 1 0 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  18. lm=result
  19. IF ba=2 THEN;DO
  20. status WINDOW
  21. parse VAR result links oben breite hoehe minbreite minhoehe .
  22. sizewindow minbreite minhoehe
  23. End
  24. GetDocItemPrefs Decimal
  25. Punkt=Result
  26. If Punkt="Comma" then DocItemPrefs Decimal Period
  27. Font
  28. a=RC
  29. If a=0 then;do
  30. Type d2c(32)
  31. BackSpace
  32. status FontPath
  33. FullFontName=result
  34. status FontName
  35. ShortFontName=result
  36. IF ba=2 THEN View 20
  37. Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  38. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  39. GraphicTool
  40. LinePrefs LineWt .5
  41. DrawLine 1 2 3.5 20 3.5
  42. DrawLine 1 2 26 20 26
  43. If lm=1 then DrawLine 1 .5 14.85 1 14.85
  44. TextTool
  45. If cl=1 then;do
  46. Do i=0 to 13
  47. SetTab i*1.3+0.8 Right
  48. End
  49. Justify Center
  50. Font Softsans
  51. FontSize 18
  52. Type ShortFontName;NewParagraph;NewParagraph
  53. DO a=33 BY 14 FOR 16
  54. Font Softsans
  55. FontSize 8
  56. zeile=""
  57. DO x=a TO a+13 WHILE x<256
  58. zeile=zeile|| d2c(9)||x|| d2c(32)|| d2c(x)
  59. END
  60. If x=256 then zeile=zeile|| d2c(9)
  61. Type zeile;NewParagraph
  62. Font ShortFontName
  63. FontSize 24
  64. zeile=""
  65. DO x=a TO a+13 WHILE x<256
  66. zeile=zeile|| d2c(9)|| d2c(x)
  67. END
  68. If x=256 then zeile=zeile|| d2c(9)
  69. Type zeile;NewParagraph
  70. END
  71. FontSize 12
  72. Type d2c(9);NewParagraph
  73. Font Softsans
  74. FontSize 8
  75. Justify Right
  76. Type Date(E)" - "FullFontName
  77. END
  78. If cl=2 then;do
  79. Justify Center
  80. Font Softsans
  81. FontSize 18
  82. Type ShortFontName;NewParagraph
  83. Justify Left
  84. Font ShortFontName
  85. FontSize 8
  86. NewParagraph;Type "This is 8-point type - not easy to read!";NewParagraph
  87. FontSize 9
  88. Type "9-point type is about the smallest readable size.";NewParagraph
  89. FontSize 10
  90. Type "With 10-point type, we have a normal text size.";NewParagraph
  91. FontSize 12
  92. Type "With some fonts, 12-point type is easier to read.";NewParagraph
  93. FontSize 14
  94. Type "14-point type is good for subheadings.";NewParagraph
  95. FontSize 16
  96. Type "For larger subheadings, try 16-point type.";NewParagraph
  97. FontSize 18
  98. Type "18-point type makes nice small headlines.";NewParagraph
  99. FontSize 24
  100. Type "24-point type is for medium headlines.";NewParagraph
  101. FontSize 36
  102. Type "36-point is for larger ones.";NewParagraph
  103. FontSize 48
  104. Type "48-point almost shouts!";NewParagraph
  105. FontSize 60
  106. Type "60-point is huge!";NewParagraph
  107. FontSize 12
  108. Font SoftSans
  109. Type d2c(32);NewParagraph
  110. NewParagraph;Type "NORMAL";NewParagraph
  111. FontSize 10
  112. Font ShortFontName
  113. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ";NewParagraph
  114. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?";NewParagraph
  115. Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß";NewParagraph;NewParagraph;NewParagraph
  116. FontSize 12
  117. Font SoftSans
  118. Type "ERWEITERTER SCHRIFTCODE";NewParagraph
  119. FontSize 10
  120. Font ShortFontName
  121. DO j=128 BY 32 FOR 4
  122. Type XRange( d2c(j), d2c(j+31));NewParagraph
  123. End
  124. Status BodyTextHeight
  125. th=result
  126. FG=26.24-2.113-th
  127. FG=Trunc(FG*8/0.34)
  128. FontSize FG
  129. Type d2c(9)
  130. Font SoftSans
  131. FontSize 8
  132. NewParagraph
  133. Justify Right
  134. Type Date(E)" - "FullFontName
  135. END
  136. call WH
  137. 'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"'
  138. If result=1 then Save
  139. If result=2 then Print
  140. END
  141. else call WH
  142. 'ShowMessage 2 0 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"'
  143. 'ShowMessage 2 1 "© Heiko Schröder" "email: age@thepentagon.com" "http://yi.com/home/SchroederHeiko" "Oki" "Doki" ":-))"'
  144. EXIT
  145. BREAK_C:
  146. 'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  147. call WH
  148. EXIT
  149. WH:
  150. If ba=2 then;do
  151. View
  152. Redraw
  153. SizeWindow breite hoehe
  154. End
  155. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  156. Return